home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / glass / glass.lha / GLASS / dtm / DtmMain.c < prev    next >
C/C++ Source or Header  |  1991-06-18  |  2KB  |  65 lines
  1. /*
  2.    code to initialize the application
  3. */
  4. static Widget top, form, pane, inputs, outputs;
  5. static Widget recompute, stop;
  6.  
  7. static void StopIt ()
  8.         { exit(0);
  9.         };
  10.  
  11. static int init_sig[] = {0};
  12.  
  13. static XtAppContext MyContext;
  14. static Display *MyDisplay;
  15. /*
  16.    The main program
  17. */
  18. main (argc, argv)
  19.  int argc;
  20.  char **argv;
  21.     { Widget button, tail;
  22.  
  23.       /* Initialize the toolkit and parse the arguments */
  24.       XtToolkitInitialize ();
  25.       MyContext = XtCreateApplicationContext ();
  26.       MyDisplay = XtOpenDisplay (MyContext, (char *)0, "xdtm",
  27.             "xDtm", (char *)0, 0, &argc, argv);
  28.       top = XtAppCreateShell ("xdtm", "xDtm",
  29.             applicationShellWidgetClass, MyDisplay, NoArgs);
  30.       /*  XtGetApplicationResources (top, &MyResources,
  31.             resources, XtNumber (resources), NULL, 0); */
  32.       StartArgs;
  33.       SetArg (XtNdefaultDistance, 4);
  34.       form = XtCreateManagedWidget ("topform", formWidgetClass,
  35.             top, UseArgs);
  36.       StartArgs;
  37.       SetArg (XtNleft, XtChainLeft);
  38.       SetArg (XtNright, XtChainLeft);
  39.       SetArg (XtNbottom, XtChainTop);
  40.       SetArg (XtNtop, XtChainTop);
  41.       Callback (StopIt);
  42.       stop = XtCreateManagedWidget ("Stop", commandWidgetClass,
  43.             form, UseArgs);
  44.       StartArgs;
  45.       SetArg (XtNleft, XtChainLeft);
  46.       SetArg (XtNtop, XtChainTop);
  47.       SetArg (XtNright, XtChainLeft);
  48.       SetArg (XtNbottom, XtChainTop);
  49.       SetArg (XtNfromHoriz, stop);
  50.       Callback (ReCompute);
  51.       recompute = XtCreateManagedWidget ("Recompute", commandWidgetClass,
  52.             form, UseArgs);
  53.       StartArgs;
  54.       SetArg (XtNleft, XtChainLeft);
  55.       SetArg (XtNtop, XtChainTop);
  56.       SetArg (XtNfromVert, stop);
  57.       pane = XtCreateManagedWidget ("Pane", panedWidgetClass,
  58.             form, UseArgs);
  59.       StartArgs;
  60.       inputs = XtCreateManagedWidget ("Inputs", signalmgrWidgetClass,
  61.             pane, UseArgs);
  62.       StartArgs;
  63.       outputs = XtCreateManagedWidget ("Outputs", signalmgrWidgetClass,
  64.             pane, UseArgs);
  65.